SGI Freeware 1999 August/SGI Freeware 1999 August.iso/dist/fw_perl.idb/usr/freeware/lib/perl5/5.00502/irix-n64-thread/sgidefs.ph.z/sgidefs.ph

Text File | 1998-10-28 | 1.0 KB | 27 lines

unless(defined(&__SGIDEFS_H__)) {
    eval 'sub __SGIDEFS_H__ () {1;}';
    # "$Revision: 1.11 $"
    eval 'sub _MIPS_ISA_MIPS1 () {1;}' unless defined(&_MIPS_ISA_MIPS1);
    eval 'sub _MIPS_ISA_MIPS2 () {2;}' unless defined(&_MIPS_ISA_MIPS2);
    eval 'sub _MIPS_ISA_MIPS3 () {3;}' unless defined(&_MIPS_ISA_MIPS3);
    eval 'sub _MIPS_ISA_MIPS4 () {4;}' unless defined(&_MIPS_ISA_MIPS4);
    eval 'sub _MIPS_SIM_ABI32 () {1;}' unless defined(&_MIPS_SIM_ABI32);
    eval 'sub _MIPS_SIM_NABI32 () {2;}' unless defined(&_MIPS_SIM_NABI32);
    eval 'sub _MIPS_SIM_ABI64 () {3;}' unless defined(&_MIPS_SIM_ABI64);
#
# Grrr.  Compiler defines in include files...
    eval 'sub _MIPS_FPSET {32;}';
    eval 'sub _MIPS_SZINT {32;}';
    eval 'sub _MIPS_SZLONG {64;}';
    eval 'sub _MIPS_SZPTR {64;}';
    eval 'sub _MIPS_ISA {_MIPS_ISA_MIPS3;}';
    eval 'sub _MIPS_SIM {_MIPS_SIM_ABI64;}';
    eval 'sub _MIPSEB {1;}';
    eval 'sub MIPSEB {1;}';
    eval 'sub _D_BSD_TYPES {1;}';
    eval 'sub _POSIX_C_SOURCE {1;}';
    eval 'sub _MIPSABI_SOURCE {2;}';
#
}
1;